﻿Imports System.Data
Imports System.Data.SqlClient
Public Class KiemTraNha_BUS
    Public Shared Sub ThemDuLieuNguoiThue(ByVal KT As KiemTraNha_DTO)
        Dim i As Boolean = KiemTraNha_DAO.ThemXacNhan(KT)
        If (i = True) Then
            MessageBox.Show(" bạn đã thêm thành công!")
        Else
            MessageBox.Show(" đã có lỗi khi thêm dữ liệu. bạn hãy kiểm tra dữ liệu!", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
    Public Shared Function LoadQuanLyNha() As DataTable
        Dim i As DataTable = KiemTraNha_DAO.LoadQLNha()
        Return i
    End Function
    Public Shared Sub UpdateKiemTraNha(ByVal KT As KiemTraNha_DTO)
        Dim i As Boolean = KiemTraNha_DAO.UpdateQLNha(KT)
        If (i = True) Then
            MessageBox.Show(" bạn đã cập nhật thành công!")
        Else
            MessageBox.Show(" đã có lỗi khi cập nhật dữ liệu. bạn hãy kiểm tra dữ liệu!", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
    Public Shared Sub XoaQuanLyNha(ByVal KT As String)
        Dim i As Boolean = KiemTraNha_DAO.XoaQuanLyNha(KT)
        If (i = True) Then
            MessageBox.Show(" bạn đã xóa thành công!")
        Else
            MessageBox.Show(" đã có lỗi khi xóa dữ liệu. bạn hãy kiểm tra dữ liệu!", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
End Class
